home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs59.d81 / krnlprnt.sda / UNIVERSAL.DBM (.txt) < prev   
GEOS ConVerT  |  2009-10-10  |  1KB  |  39 lines
  1. universal.dbm
  2. PRG formatted GEOS file V1.0
  3. EPSON FX-80
  4. SAMSEQ
  5. BLASTER'S CONVERTER V2.5
  6. UNIVERSAL.DBM
  7. universal.dbg
  8. Write Image V2.0
  9. geoWrite    V2.1
  10. .macro autoexec
  11. js GetPrinter[cr]
  12. .endm
  13. .macro printer
  14. js StartASCII[cr]
  15. setu u.1,.1[cr]
  16. for arg0:arg1,pr2[cr]
  17. js StopPrint[cr]
  18. setu u.1,.0[cr]
  19. .endm
  20. .macro pr2
  21. setu u.lc,u.fn[cr]
  22. dis[cr]
  23. setu u.fn,u.lc[cr]
  24. js DoScreen[cr]
  25. .endm
  26. .macro dis_
  27. @/arg0[cr]
  28. jjjjjjjjjjjjjjjjjjjjj[cr]
  29. @1lc,u.lc+@#u.lc[cr]
  30. .endm
  31. .macro dis
  32. setu u.wc,.0[cr]
  33. dis_ arg0[cr]
  34. setu u.wc,.0[cr]
  35. a[cr]j[cr]
  36. if (u.1=.1),setu u.lc,u.lc+((@#u.lc)-1)[cr]
  37. if (u.1=.0),setu u.lc,u.lc+((@#u.lc)-1)[cr]
  38. .endm
  39.